home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATH / PRAXIS.ZIP / ROSEN.C < prev    next >
C/C++ Source or Header  |  1987-07-15  |  192b  |  14 lines
  1. #include <math.h>
  2. #include "machine.h"
  3.  
  4. double rosen(x, n)
  5. double x[];
  6. int n;
  7. {
  8.    double f1, f2;
  9.  
  10.    f1 = x[0] - 1.0;
  11.    f2 = 10.0*(x[1] - x[0]*x[0]);
  12.    return f1*f1 + f2*f2;
  13. }
  14.